home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / vu / frmmain.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-06-03  |  3.2 KB  |  109 lines
  1. VERSION 5.00
  2. Object = "{6148AFC5-1910-11D3-B72F-444553540000}#1.0#0"; "VUDEMO.ocx"
  3. Begin VB.Form frmMain 
  4.    Caption         =   "VU Meter 1.5 Tester (DEMO)"
  5.    ClientHeight    =   2955
  6.    ClientLeft      =   4380
  7.    ClientTop       =   5175
  8.    ClientWidth     =   5235
  9.    ControlBox      =   0   'False
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   9
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "frmMain.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    ScaleHeight     =   2955
  22.    ScaleWidth      =   5235
  23.    Begin VUDEMO.ucVURightAnalog ucVUR 
  24.       Height          =   1185
  25.       Left            =   2805
  26.       TabIndex        =   4
  27.       Top             =   915
  28.       Width           =   1815
  29.       _ExtentX        =   3201
  30.       _ExtentY        =   2090
  31.       PriorityVal     =   10
  32.    End
  33.    Begin VUDEMO.ucVULeftAnalog ucVUL 
  34.       Height          =   1185
  35.       Left            =   480
  36.       TabIndex        =   3
  37.       Top             =   915
  38.       Width           =   1815
  39.       _ExtentX        =   3201
  40.       _ExtentY        =   2090
  41.       PriorityVal     =   10
  42.    End
  43.    Begin VB.CommandButton cmdClose 
  44.       Caption         =   "Cool!!!"
  45.       Height          =   345
  46.       Left            =   4110
  47.       TabIndex        =   2
  48.       Top             =   2505
  49.       Width           =   1065
  50.    End
  51.    Begin VB.ComboBox cmdMonitorLines 
  52.       BeginProperty Font 
  53.          Name            =   "Tahoma"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   315
  62.       Left            =   210
  63.       Style           =   2  'Dropdown List
  64.       TabIndex        =   0
  65.       Top             =   285
  66.       Width           =   2295
  67.    End
  68.    Begin VB.Label Label1 
  69.       Caption         =   "Monitor:"
  70.       Height          =   285
  71.       Left            =   210
  72.       TabIndex        =   1
  73.       Top             =   60
  74.       Width           =   810
  75.    End
  76. Attribute VB_Name = "frmMain"
  77. Attribute VB_GlobalNameSpace = False
  78. Attribute VB_Creatable = False
  79. Attribute VB_PredeclaredId = True
  80. Attribute VB_Exposed = False
  81. Option Explicit
  82. Private Sub cmdClose_Click()
  83.     ucVUL.StopVU
  84.     ucVUR.StopVU
  85.     Unload Me
  86. End Sub
  87. Private Sub cmdMonitorLines_Click()
  88.     ucVUR.SetMonitorLine = cmdMonitorLines.ListIndex + 1
  89.     ucVUL.SetMonitorLine = cmdMonitorLines.ListIndex + 1
  90. End Sub
  91. Private Sub Form_Load()
  92.     Dim i As Integer
  93.     With ucVUR
  94.         .StartVU
  95.         For i = 1 To .MonitorLinesCount
  96.             cmdMonitorLines.AddItem .MonitorLineName(i)
  97.         Next i
  98.     End With
  99.     With ucVUL
  100.         .StartVU
  101.     End With
  102.     If cmdMonitorLines.ListCount > 0 Then
  103.         cmdMonitorLines.ListIndex = 0
  104.     End If
  105. End Sub
  106. Private Sub ucVUL_VUError(msg As String)
  107.     MsgBox msg
  108. End Sub
  109.